Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1648 1425 (N38W32 L=166)  1565    279        1 (1533/1332-1730/1483)  -5.7 W20-W41 N34-N41
      2 1472 1364 (N28W18 L=152)   855    164        2 (1412/1297-1525/1415) -21.8 W13-W23 N25-N29
      3 1326 1355 (N23W09 L=143)   329    100        0 (1298/1304-1346/1404) -81.9 W07-W09 N19-N26
      4  379 1343 (S02E50 L= 84)  1321    173        4 ( 327/1278- 426/1389) -24.4 E56-E45 S05-N00
      5 1209 1259 (N13W04 L=138)   331    110        1 (1151/1240-1258/1282)  45.0 W01-W06 N11-N16
      6 1804 1194 (N29W50 L=184)   447    124        0 (1764/1135-1833/1229) -29.7 W45-W53 N25-N30
      7 1735 1092 (N20W44 L=178)   504     86        1 (1707/1049-1758/1128) -53.1 W41-W46 N17-N21
      8  931  984 (S09E04 L=130)   208     47        0 ( 911/ 957- 957/1003)  76.0 E05-E02 S11-S07
      9 1503  890 (N01W31 L=166)   655    175        3 (1479/ 810-1525/ 982) -66.0 W29-W33 S03-N06
     10 1856  945 (N16W60 L=194)   476     57        1 (1832/ 921-1877/ 965)  -9.5 W56-W63 N13-N16
     11 1248  898 (S06W16 L=150)  1223    288        2 (1130/ 824-1318/ 948)   9.5 W09-W21 S10-S02
     12 1657  908 (N07W42 L=176)   307     55        1 (1621/ 891-1692/ 920)  18.4 W38-W44 N05-N08
     13  897  729 (S25W01 L=135)   340    142        0 ( 877/ 669- 917/ 799) -69.4 E02-W03 S28-S20
     14  544  781 (S31E24 L=110)   234     46        1 ( 518/ 760- 567/ 797)  36.9 E26-E22 S32-S29
     15  497  691 (S38E27 L=107)   297     55        0 ( 477/ 670- 514/ 720)  59.0 E28-E25 S40-S35
     16 1708  527 (S11W65 L=199)  1466    205        3 (1636/ 462-1764/ 609)  85.2 W61-W70 S17-S05
     17 1590  524 (S16W53 L=188)   415     74        0 (1555/ 505-1625/ 544)  31.0 W51-W56 S17-S14
     18 1291  388 (S33W41 L=175)   278     76        0 (1253/ 378-1326/ 401)  36.9 W38-W43 S34-S31
     19 1481  328 (S30W61 L=195)  1925    190        4 (1420/ 283-1556/ 375)   2.4 W51-W75 S31-S27
     20 1146  191 (S51W53 L=187)   448     56        1 (1136/ 159-1161/ 227) -21.0 W47-W60 S53-S48
  

    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