Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  525 1747 (N40E65 L=192)   847     89        0 ( 509/1699- 537/1788) -21.3 E77-E58 N36-N43
      2  492 1562 (N27E50 L=208)  1141    176        2 ( 459/1504- 535/1610) -24.8 E55-E42 N23-N29
      3  909 1507 (N29E15 L=242)   755    207        2 ( 877/1414- 956/1593)  90.0 E17-E13 N22-N36
      4  501 1402 (N16E42 L=216)   391    135        0 ( 481/1340- 523/1466) -76.0 E42-E39 N12-N20
      5 1226 1363 (N24W08 L=266)   234     62        2 (1194/1339-1251/1388) -33.7 W06-W10 N22-N25
      6 1737 1155 (N18W49 L=306)   312     30        0 (1721/1130-1751/1179) -90.0 W47-W50 N16-N19
      7  482  965 (S10E34 L=223)   317     39        0 ( 452/ 946- 509/ 989)  26.6 E36-E32 S11-S08
      8  384  910 (S15E42 L=215)   318     64        1 ( 361/ 883- 418/ 940) -36.9 E44-E39 S16-S13
      9  539  872 (S15E30 L=228)   274    130        1 ( 501/ 826- 581/ 924)  60.3 E32-E26 S18-S11
     10  269  699 (S31E57 L=200)  1788    230        2 ( 185/ 632- 363/ 740)  13.3 E82-E44 S37-S26
     11 1139  542 (S28W15 L=272)   516    124        1 (1080/ 522-1201/ 561)  20.6 W11-W19 S29-S26
     12  846  492 (S36E05 L=253)   237     47        0 ( 822/ 469- 869/ 511)  53.1 E06-E03 S38-S34
     13 1453  448 (S30W42 L=300)  1766    345        1 (1306/ 400-1604/ 504)  25.5 W31-W53 S35-S24
     14 1269  231 (S51W44 L=301)   799     93        1 (1212/ 215-1317/ 252)   4.4 W36-W50 S52-S48
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y