Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1217 1661 (N37E08 L=343)  1099    258        2 (1178/1547-1240/1754) -56.3 E14-E03 N28-N44
      2  770 1692 (N25E37 L=314)   454    104        1 ( 746/1645- 793/1738) -50.2 E39-E33 N22-N28
      3 1317 1425 (N24W06 L=356)   255     98        0 (1270/1396-1351/1460)  -8.1 W01-W08 N23-N24
      4 1623 1323 (N28W29 L= 19)   319    101        0 (1603/1279-1636/1384) -56.3 W26-W30 N25-N31
      5  187 1221 (S15E65 L=286)  1877    199        6 ( 127/1151- 237/1297)  45.0 E73-E60 S19-S09
      6  345 1216 (S12E48 L=303)   534    104        0 ( 313/1179- 390/1258) -20.6 E51-E43 S13-S10
      7 1150 1185 (N05W03 L=353)   416    147        0 (1076/1172-1218/1201)  33.7 E01-W06 N03-N07
      8  293 1130 (S18E50 L=300)   660     97        2 ( 256/1092- 325/1158) -15.9 E54-E46 S19-S16
      9 1594 1126 (N15W30 L= 21)   300    115        0 (1541/1100-1643/1154)  15.9 W26-W33 N14-N16
     10  710  995 (S16E17 L=334)   651    183        1 ( 645/ 940- 782/1031)  49.4 E19-E12 S20-S13
     11 1659  975 (N09W39 L= 29)   325     77        0 (1636/ 938-1691/1009)  68.2 W37-W40 N06-N11
     12  202  688 (S47E65 L=286)   607     92        1 ( 159/ 670- 243/ 707)  -3.2 E75-E56 S48-S45
     13 1779  641 (S04W62 L= 53)   744     77        0 (1748/ 602-1803/ 688) -80.5 W60-W64 S06-N00
     14 1030  643 (S27W12 L=  3)   403    129        2 ( 976/ 616-1098/ 668)  15.9 W08-W15 S29-S25
     15 1247  574 (S24W27 L= 18)   719    226        3 (1159/ 532-1347/ 631)   7.6 W19-W34 S26-S22
  

    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