Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1218 1853 (N48W54 L=135)   610     59        1 (1187/1824-1252/1874) -18.4 W49-W59 N46-N50
      2 1109 1830 (N51W42 L=123)   544     63        1 (1089/1796-1128/1868)  24.4 W37-W48 N48-N53
      3 1214 1545 (N29W27 L=108)   298    123        2 (1165/1518-1269/1558) -15.9 W23-W30 N26-N30
      4 1158 1467 (N26W20 L=102)   236     59        0 (1137/1437-1183/1499) -90.0 W19-W21 N23-N28
      5  727 1458 (N37E07 L= 74)   414    104        1 ( 684/1437- 780/1480) -39.8 E10-E04 N34-N39
      6 1009 1449 (N29W11 L= 92)   243    111        0 ( 955/1430-1039/1465)  -9.5 W06-W12 N27-N29
      7  379 1434 (N45E39 L= 42)   986    148        1 ( 306/1413- 454/1453) -14.7 E49-E30 N42-N47
      8  315 1166 (N29E45 L= 36)   576    119        1 ( 296/1109- 332/1228)  66.8 E47-E43 N25-N32
      9  380 1094 (N23E40 L= 41)   496     94        1 ( 329/1073- 427/1119) -18.4 E44-E35 N21-N25
     10  643 1057 (N15E21 L= 60)   224     83        0 ( 624/1016- 663/1098)  45.0 E23-E19 N13-N17
     11 1376  968 (S08W18 L=100)   490    124        3 (1352/ 904-1407/1017)  45.0 W15-W21 S10-S05
     12  444  966 (N14E37 L= 44)   561     84        0 ( 422/ 920- 464/1012)  71.6 E38-E34 N11-N17
     13  415  786 (N05E43 L= 38)   267     50        0 ( 390/ 767- 442/ 803)  14.0 E45-E41 N03-N05
     14 1354  685 (S23W11 L= 92)   634    211        1 (1328/ 632-1433/ 765) -73.3 W08-W15 S28-S18
     15 1578  634 (S34W26 L=107)   388     53        0 (1561/ 597-1595/ 672) -90.0 W24-W27 S36-S30
     16 1139  565 (S25E05 L= 76)   255     69        0 (1101/ 555-1177/ 579) -11.3 E07-E02 S26-S23
     17  540  308 (S27E59 L= 22)  2484    248        4 ( 482/ 247- 620/ 377)  12.0 E79-E46 S30-S23
     18 1365  301 (S53W02 L= 83)   497     65        1 (1334/ 280-1403/ 319) -18.4 W00-W06 S54-S49
     19 1235  202 (S57E15 L= 66)   586     75        2 (1208/ 183-1263/ 230)  18.4 E19-E10 S60-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