Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1505 1534 (N37W18 L= 26)   365     91        1 (1472/1496-1539/1552)  18.4 W14-W20 N33-N38
      2  331 1459 (N03E58 L=310)   435     80        1 ( 299/1423- 359/1499)  68.2 E60-E56 N00-N06
      3 1599 1466 (N35W26 L= 35)   607     89        3 (1546/1433-1636/1495)  14.0 W21-W29 N33-N37
      4 1121 1346 (N13E03 L=  6)   211     40        1 (1104/1323-1150/1365)  71.6 E03-E01 N11-N14
      5  227 1277 (S09E61 L=307)  1055    197        5 ( 190/1207- 269/1356)  78.7 E64-E58 S13-S03
      6  159 1224 (S13E68 L=301)  2502    389        6 ( 105/1120- 205/1331)  69.0 E72-E64 S19-S06
      7  494 1102 (S15E34 L=335)   442    170        1 ( 478/1025- 512/1197) -78.7 E35-E31 S19-S09
      8  143 1081 (S22E65 L=304)  1543    352        1 (  88/ 982- 212/1139)  45.0 E70-E58 S27-S17
      9 1252  715 (S18W21 L= 30)   642    265        1 (1215/ 620-1275/ 833) -48.0 W16-W25 S24-S12
     10 1777  709 (S03W59 L= 68)  1339    264        3 (1730/ 663-1836/ 782)  -6.7 W51-W68 S04-N00
     11  892  651 (S32W02 L= 11)  1221    346        2 ( 720/ 608-1060/ 685)  15.3 E09-W13 S35-S29
     12 1161  619 (S26W20 L= 28)   221     62        1 (1133/ 599-1191/ 639)   0.0 W17-W21 S27-S24
     13 1521  349 (S29W57 L= 66)  1298    192        4 (1442/ 310-1627/ 409)  47.7 W51-W62 S33-S22
     14 1341  264 (S41W51 L= 60)   829    129        1 (1302/ 235-1384/ 302)   6.3 W46-W56 S42-S38
  

    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