Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  871 1743 (N57W15 L= 39)   499     88        1 ( 837/1716- 904/1774)  11.3 W10-W20 N54-N59
      2 1557 1696 (N29W66 L= 90)   995    138        3 (1498/1667-1615/1736) -58.0 W62-W72 N25-N33
      3 1524 1593 (N25W53 L= 77)   975    210        2 (1439/1539-1605/1632) -51.3 W47-W57 N19-N29
      4  530 1563 (N54E26 L=358)   305     42        1 ( 509/1540- 549/1586) -76.0 E29-E23 N51-N55
      5 1349 1537 (N28W37 L= 61)   330    119        0 (1301/1498-1386/1568) -63.4 W34-W37 N24-N30
      6 1324 1441 (N23W30 L= 54)   336    112        0 (1275/1426-1384/1454) -14.0 W26-W34 N21-N24
      7 1150 1242 (N16W13 L= 37)   640    154        1 (1090/1185-1203/1282) -69.4 W10-W15 N12-N20
      8  406 1150 (N28E39 L=345)   472    102        1 ( 361/1119- 448/1177) -23.2 E42-E35 N25-N30
      9 1814 1118 (S09W56 L= 80)   368     60        0 (1798/1094-1833/1152) -90.0 W53-W57 S11-S07
     10  855 1093 (N15E08 L= 16)   307     88        1 ( 834/1040- 871/1130)  53.1 E09-E06 N12-N17
     11 1869  925 (S23W59 L= 83)  2133    314        1 (1831/ 803-1913/1057)  71.6 W53-W67 S31-S15
     12  442  994 (N18E38 L=346)   337     72        0 ( 430/ 957- 457/1035)  68.2 E39-E36 N15-N20
     13 1163  941 (S01W06 L= 30)   864    212        2 (1115/ 845-1214/1027)  41.2 W02-W10 S05-N02
     14 1335  695 (S20W10 L= 34)   404    151        0 (1263/ 655-1379/ 718) -40.6 W05-W12 S23-S17
     15 1523  522 (S38W21 L= 45)   769    118        1 (1485/ 474-1558/ 572)  45.0 W17-W24 S40-S34
     16 1203  509 (S28E02 L= 22)   408    133        0 (1152/ 488-1270/ 534) -15.9 E05-W02 S29-S25
     17 1383  403 (S42W07 L= 31)   343     54        0 (1364/ 380-1408/ 433)  76.0 W05-W09 S44-S39
     18 1287  352 (S43E02 L= 22)   320     57        0 (1271/ 329-1312/ 381)  78.7 E02-W00 S45-S40
     19  679  245 (S34E53 L=331)   660     69        0 ( 653/ 221- 718/ 276) -78.7 E55-E50 S37-S31
  

    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