Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1345 1647 (N32W42 L=246)   434    123        0 (1305/1624-1406/1662) -33.7 W38-W45 N28-N33
      2 1734 1565 (N13W69 L=274)  1405    309        1 (1706/1512-1771/1605)   4.1 W64-W79 N10-N15
      3 1587 1528 (N17W52 L=256)   626    122        2 (1530/1478-1642/1575) -66.0 W50-W54 N12-N21
      4 1725 1428 (N07W59 L=263)   352     65        0 (1699/1410-1745/1452)  -9.5 W55-W61 N06-N08
      5  925 1366 (N29W04 L=208)   399    129        1 ( 865/1346- 998/1383) -29.7 W00-W08 N25-N30
      6 1413 1342 (N13W32 L=236)  1999    509        3 (1207/1302-1632/1370) -24.0 W18-W45 N04-N18
      7  589 1160 (N25E23 L=181)   722    176        1 ( 553/1066- 617/1248) -90.0 E24-E21 N19-N31
      8 1839 1150 (S11W58 L=262)  1075    190        3 (1795/1056-1869/1207) -84.3 W55-W61 S16-S06
      9 1792 1144 (S10W53 L=257)   432     80        1 (1772/1124-1824/1168) -45.0 W50-W55 S11-S07
     10 1795 1068 (S14W50 L=255)   433    101        0 (1774/1025-1826/1114) -74.1 W49-W52 S17-S10
     11  972 1041 (N09E02 L=202)   285     99        0 ( 954/ 990- 990/1095)  51.3 E04-W00 N06-N11
     12 1643 1044 (S10W37 L=242)   374     92        1 (1604/1014-1676/1066) -31.0 W34-W39 S12-S08
     13 1766  963 (S19W45 L=249)   319     66        1 (1751/ 924-1782/1002)  45.0 W43-W47 S20-S16
     14 1019  935 (N02E03 L=202)   576    159        1 ( 950/ 909-1101/ 981) -45.0 E05-W01 S01-N06
     15  227  924 (N19E57 L=147)   407     74        1 ( 214/ 886- 242/ 962) -78.7 E58-E55 N16-N21
     16 1382  712 (S21W12 L=217)  2113    516        5 (1266/ 517-1444/ 900)  81.3 W07-W15 S33-S07
     17  353  766 (N08E50 L=155)   294     42        0 ( 338/ 743- 372/ 795) -90.0 E51-E48 N06-N09
     18  291  649 (N02E61 L=144)   440     95        0 ( 278/ 612- 305/ 689)  38.7 E63-E57 N00-N04
     19  388  607 (S02E53 L=151)   392     61        0 ( 369/ 574- 406/ 642)  31.0 E55-E50 S04-N00
     20  400  462 (S11E59 L=145)  2161    329        7 ( 316/ 376- 490/ 546) -61.7 E65-E55 S18-S04
     21  830  492 (S19E27 L=178)   319     93        0 ( 788/ 452- 867/ 525) -71.6 E28-E25 S21-S15
     22  578  443 (S16E45 L=159)   690    243        2 ( 551/ 359- 612/ 517)  48.0 E51-E40 S21-S10
     23 1220  481 (S31E04 L=200)   300    100        0 (1189/ 457-1266/ 514) -63.4 E05-E01 S33-S27
     24  822  304 (S31E37 L=168)  1499    322        1 ( 731/ 249- 880/ 402)  16.4 E45-E28 S35-S25
  

    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