Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  802 1797 (N35E43 L=299)   565     54        0 ( 783/1763- 823/1832) -50.2 E45-E39 N31-N37
      2 1330 1665 (N41W00 L=342)  2658    318        5 (1240/1551-1409/1751) -29.1 E09-W09 N35-N46
      3  702 1716 (N26E43 L=299)   394     64        1 ( 683/1686- 724/1746) -78.7 E45-E41 N23-N28
      4  993 1535 (N21E16 L=326)   679    210        0 ( 910/1474-1079/1561)   0.0 E21-E09 N18-N23
      5  771 1414 (N08E25 L=317)   410    152        1 ( 756/1345- 794/1479) -54.5 E26-E21 N05-N12
      6  591 1373 (N02E35 L=307)   333     82        0 ( 574/1337- 619/1413) -45.0 E36-E32 N00-N04
      7 1678 1361 (N32W34 L= 16)   827    128        1 (1631/1318-1732/1401)  -5.7 W29-W39 N30-N33
      8 1741 1279 (N29W41 L= 23)   482     36        1 (1711/1257-1764/1307)  26.6 W37-W43 N27-N30
      9 1415 1166 (N11W18 L=  0)   675    172        0 (1393/1085-1448/1245) -78.7 W16-W20 N06-N16
     10  450 1173 (S12E39 L=303)   413    146        1 ( 390/1149- 517/1198)  16.7 E43-E33 S14-S10
     11 1608 1088 (N13W33 L= 15)   783    245        1 (1550/ 985-1662/1191) -31.6 W26-W39 N08-N17
     12  204 1117 (S20E61 L=281)   812    150        0 ( 156/1059- 234/1184)  45.0 E67-E58 S23-S15
     13  639  972 (S20E21 L=320)   366     79        0 ( 595/ 953- 687/ 995)  33.7 E24-E18 S21-S17
     14  443  915 (S27E35 L=307)   238     75        0 ( 407/ 898- 475/ 937)  31.0 E37-E32 S28-S25
     15  582  732 (S35E21 L=321)   771    154        1 ( 508/ 702- 655/ 769)  35.0 E26-E15 S38-S31
     16 1734  540 (S11W66 L= 48)   674     95        1 (1688/ 508-1780/ 573)  50.2 W62-W69 S14-S08
     17 1341  488 (S27W38 L= 20)  1192    192        2 (1256/ 448-1429/ 544)  55.0 W33-W41 S31-S21
     18 1523  327 (S30W65 L= 47)   874    133        1 (1463/ 297-1592/ 353)  48.8 W60-W69 S33-S25
     19 1119  334 (S44W34 L= 16)   412     66        0 (1084/ 318-1157/ 347)  21.8 W30-W36 S45-S42
  

    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