Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  601 1625 (N46E35 L=306)   359     74        1 ( 562/1609- 639/1641)   8.1 E38-E31 N44-N47
      2 1277 1617 (N42W24 L=  5)   525    146        1 (1201/1598-1338/1630)  -4.8 W17-W29 N40-N43
      3 1677 1545 (N33W56 L= 37)   730    138        0 (1623/1509-1727/1575) -35.5 W52-W60 N30-N35
      4  527 1489 (N36E37 L=304)  1772    384        4 ( 416/1400- 636/1549) -24.4 E48-E26 N29-N39
      5 1604 1432 (N26W45 L= 26)   347     67        0 (1577/1415-1635/1447) -26.6 W42-W47 N25-N27
      6  942 1365 (N26E04 L=337)   701    272        3 ( 789/1326-1051/1423) -19.4 E14-W03 N23-N30
      7 1169 1231 (N16W10 L=351)  1042    215        5 (1099/1152-1243/1294) -48.4 W05-W14 N11-N20
      8 1809 1237 (N12W60 L= 41)  1077    223        0 (1743/1157-1864/1293) -39.3 W53-W65 N06-N16
      9  460 1234 (N19E38 L=303)   357    115        0 ( 444/1174- 473/1287) -82.9 E39-E36 N14-N22
     10  263  914 (S01E55 L=286)   669    145        2 ( 215/ 893- 313/ 940)   5.7 E60-E50 S02-N00
     11 1619  849 (S10W39 L= 20)  1220    311        3 (1526/ 753-1713/ 936) -40.9 W32-W47 S16-S03
     12 1183  789 (S11W09 L=350)   363     87        3 (1154/ 747-1217/ 833)  51.3 W07-W11 S13-S08
     13 1308  552 (S27W18 L=359)  2393    433        3 (1133/ 433-1467/ 732)  39.6 W05-W28 S35-S16
     14  366  711 (S14E48 L=293)   297     53        0 ( 342/ 694- 389/ 729)   0.0 E50-E45 S15-S12
     15 1012  620 (S21E03 L=338)   550    137        2 ( 945/ 574-1081/ 668)  32.0 E07-W02 S24-S18
  

    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