Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  944 1874 (N72W08 L=153)   680     64        2 ( 913/1849- 967/1899)  32.5 W02-W14 N67-N75
      2 1614 1561 (N32W56 L=202)   654    106        0 (1568/1531-1665/1583) -18.4 W51-W61 N29-N33
      3 1571 1487 (N28W47 L=193)   831    189        0 (1537/1397-1606/1557)  70.0 W45-W50 N21-N32
      4 1144 1533 (N37W15 L=160)   370     90        1 (1097/1506-1187/1556)  14.0 W10-W18 N35-N38
      5 1223 1522 (N35W20 L=166)   242     58        0 (1208/1494-1243/1551)  45.0 W19-W22 N33-N36
      6 1731 1475 (N24W64 L=209)   907    104        1 (1691/1427-1775/1517) -81.9 W57-W68 N20-N27
      7  824 1358 (N28E11 L=135)   398    118        0 ( 796/1295- 864/1407) -69.4 E12-E08 N23-N31
      8  414 1286 (N26E43 L=103)  2702    441        3 ( 303/1176- 586/1354)  11.8 E52-E27 N19-N30
      9 1290 1270 (N18W20 L=165)   423    118        1 (1249/1234-1343/1309) -38.7 W17-W22 N15-N20
     10  154 1206 (N21E74 L= 71)  1778    129        2 ( 135/1149- 176/1272) -82.9 E80-E69 N16-N24
     11 1358 1221 (N14W23 L=169)   231     65        1 (1315/1203-1386/1243)   0.0 W20-W25 N12-N15
     12  413 1084 (N13E41 L=104)   565    102        1 ( 370/1052- 450/1110) -26.6 E44-E38 N11-N14
     13 1751  857 (S13W50 L=195)   638     51        2 (1718/ 829-1779/ 882)   9.5 W46-W53 S15-S11
     14  701  799 (S06E22 L=123)   255    106        0 ( 655/ 773- 743/ 816) -18.4 E25-E19 S07-S04
     15  263  744 (S08E59 L= 86)   602     58        1 ( 241/ 716- 297/ 773)  -9.5 E62-E55 S09-S05
     16 1077  478 (S31E02 L=144)   295    114        1 (1024/ 464-1129/ 494) -26.6 E05-W01 S32-S28
     17  457  404 (S32E55 L= 90)   664    113        0 ( 435/ 355- 489/ 461)  60.9 E57-E52 S36-S27
     18  884  405 (S34E17 L=128)   484    127        2 ( 819/ 389- 953/ 421)  -5.2 E22-E11 S35-S32
     19 1255  254 (S53W12 L=158)   574     48        1 (1221/ 237-1287/ 273) -32.0 W08-W16 S55-S50
     20  944  183 (S57E23 L=122)   894    109        3 ( 894/ 165-1003/ 202)   4.1 E31-E16 S59-S54
  

    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