Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1559 1574 (N20W54 L=342)  1050    287        5 (1466/1490-1663/1662) -76.0 W51-W58 N12-N28
      2  956 1549 (N38W13 L=301)  1262    238        4 ( 847/1508-1065/1584) -34.7 W05-W20 N33-N42
      3  439 1528 (N54E34 L=254)   320     50        0 ( 425/1496- 453/1556) -68.2 E36-E32 N51-N56
      4  336 1518 (N56E51 L=237)  1067    113        0 ( 288/1485- 397/1541)  -5.7 E60-E40 N54-N58
      5 1247 1480 (N25W28 L=315)   276     55        0 (1220/1464-1277/1497) -56.3 W26-W29 N23-N26
      6 1708 1406 (N07W56 L=344)   919    152        1 (1672/1345-1738/1478)  28.6 W50-W61 N04-N10
      7 1390 1352 (N14W31 L=319)   402     76        1 (1359/1326-1426/1381) -68.2 W28-W32 N11-N16
      8 1157 1222 (N14W13 L=301)   381     97        3 (1113/1193-1205/1256) -59.0 W10-W15 N11-N16
      9  703 1236 (N27E14 L=274)   239     71        3 ( 668/1215- 735/1252) -36.9 E15-E11 N25-N28
     10  204 1174 (N34E60 L=227)   993    126        1 ( 156/1135- 256/1220) -19.4 E70-E52 N31-N38
     11  761 1134 (N19E12 L=275)   321    103        0 ( 722/1089- 790/1169) -68.2 E14-E11 N16-N22
     12 1707 1070 (S11W43 L=331)   316     38        0 (1689/1046-1727/1096) -90.0 W41-W44 S12-S09
     13 1856  969 (S22W56 L=344)   436     77        0 (1824/ 952-1887/ 993)  -7.1 W52-W60 S23-S20
     14  738  919 (N08E19 L=269)   403    156        0 ( 666/ 898- 798/ 941) -20.6 E22-E14 N06-N10
     15 1614  727 (S28W29 L=317)   776    316        0 (1552/ 603-1711/ 846)  34.5 W22-W38 S34-S23
     16 1372  580 (S29W09 L=296)  1022    225        3 (1294/ 516-1441/ 676)  26.6 W02-W14 S32-S24
     17 1710  583 (S42W38 L=326)  1314    105        3 (1672/ 532-1746/ 636)  74.1 W33-W42 S45-S37
     18  673  521 (S13E35 L=252)   350    104        1 ( 633/ 489- 721/ 544)   7.1 E39-E31 S14-S11
     19  446  384 (S18E62 L=225)   579     90        0 ( 397/ 367- 489/ 402)   0.0 E70-E56 S18-S16
     20 1071  233 (S45E27 L=261)  1667    229        2 ( 960/ 182-1157/ 287)   7.4 E39-E16 S47-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