Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1440 1712 (N52W07 L=274)   371     66        1 (1415/1684-1459/1735)  -9.5 W03-W09 N50-N55
      2  899 1679 (N29E29 L=238)   355     70        1 ( 870/1656- 933/1700)  -9.5 E31-E25 N27-N30
      3  624 1530 (N12E39 L=228)   597    140        2 ( 562/1487- 681/1580)  54.5 E42-E37 N09-N16
      4  971 1527 (N21E18 L=249)   570    135        0 ( 936/1467-1007/1580) -29.1 E22-E13 N18-N23
      5  524 1408 (N03E41 L=226)   246     68        0 ( 506/1378- 541/1433) -36.9 E42-E38 N01-N04
      6  445 1354 (S02E45 L=222)   346     95        2 ( 415/1329- 490/1375)   9.5 E47-E41 S03-N00
      7  870 1319 (N06E17 L=250)   343    110        1 ( 820/1270- 898/1347) -18.4 E19-E13 N04-N07
      8  276 1264 (S10E56 L=211)   847    232        2 ( 205/1204- 347/1300)  36.0 E62-E49 S15-S07
      9  741 1239 (S01E22 L=246)   491    174        0 ( 681/1205- 816/1299)   0.0 E26-E17 S02-N00
     10 1181 1239 (N10W03 L=270)   196     42        1 (1152/1221-1203/1256)  45.0 W00-W04 N09-N11
     11  342 1088 (S19E45 L=222)  2392    480        9 ( 247/ 939- 396/1248) -54.8 E57-E38 S28-S10
     12  232 1167 (S17E57 L=210)   573    124        0 ( 199/1123- 279/1212)  63.4 E60-E53 S19-S13
     13  643  870 (S24E18 L=249)   226     78        0 ( 599/ 855- 680/ 886)   9.5 E21-E15 S25-S23
     14  995  860 (S15W03 L=270)   201     57        0 ( 960/ 842-1031/ 881)  53.1 W01-W04 S17-S13
     15  356  851 (S33E40 L=227)   478    124        1 ( 325/ 813- 406/ 877)  29.7 E42-E35 S35-S30
     16  905  764 (S23W01 L=268)   652    247        0 ( 779/ 733-1011/ 802)  36.0 E07-W06 S27-S18
     17 1583  526 (S16W52 L=319)   460    102        2 (1547/ 483-1612/ 551) -63.4 W48-W54 S17-S13
     18 1368  502 (S24W38 L=305)   252    101        0 (1324/ 480-1405/ 523)   8.1 W34-W41 S24-S23
     19  730  444 (S49E00 L=267)   491     84        0 ( 701/ 416- 771/ 488) -26.6 E04-W03 S50-S46
     20  842  428 (S46W09 L=276)   369     87        1 ( 818/ 396- 873/ 465)  78.7 W06-W11 S48-S43
  

    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