Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  695 1632 (N51E04 L=147)   282     54        0 ( 674/1614- 714/1659)  21.8 E06-E01 N49-N52
      2 1054 1558 (N35W18 L=169)   335    125        0 ( 999/1532-1113/1573) -14.0 W14-W22 N32-N35
      3  226 1350 (N44E59 L= 92)   468     41        0 ( 202/1330- 252/1370) -16.7 E63-E53 N42-N45
      4 1685 1195 (S04W44 L=195)   330     68        0 (1672/1158-1699/1229)  45.0 W42-W46 S05-S01
      5 1373 1072 (S01W20 L=172)   652    136        2 (1293/1045-1437/1102) -12.5 W15-W24 S02-N00
      6  136  932 (N19E69 L= 82)  1976    150        4 (  87/ 881- 192/ 996) -26.6 E79-E61 N15-N23
      7 1487  773 (S21W21 L=172)   451    137        3 (1456/ 719-1502/ 847)  69.4 W17-W22 S24-S16
      8 1646  781 (S26W32 L=183)   617    158        1 (1586/ 742-1688/ 844)  18.4 W27-W36 S26-S23
      9  298  722 (N05E55 L= 96)   533    126        0 ( 261/ 678- 318/ 786)  50.2 E60-E51 N02-N08
     10 1224  719 (S17W03 L=154)   257    115        1 (1176/ 680-1260/ 759) -63.4 W01-W04 S19-S13
     11 1149  690 (S16E02 L=149)   325    132        2 (1106/ 655-1193/ 737) -74.1 E04-W00 S19-S12
     12  874  560 (S17E21 L=130)   530    273        0 ( 786/ 481- 964/ 656)  21.8 E28-E13 S20-S13
     13 1036  610 (S18E10 L=141)   232     67        1 (1019/ 582-1057/ 646)  63.4 E11-E08 S19-S15
     14 1356  599 (S28W08 L=159)   568    131        1 (1290/ 562-1419/ 639)  -5.7 W03-W13 S29-S26
     15  554  547 (S10E42 L=110)  2144    509        6 ( 424/ 462- 735/ 614) -33.7 E53-E31 S18-S05
     16  341  433 (S13E69 L= 82)  1346    130        1 ( 323/ 376- 359/ 496)  22.8 E82-E62 S17-S09
     17 1170  349 (S39E12 L=139)  1487    358        5 (1048/ 255-1254/ 475)  23.5 E24-E01 S44-S32
     18  918  304 (S35E30 L=121)   408    109        2 ( 895/ 252- 936/ 361)  41.2 E34-E26 S38-S31
     19 1332  308 (S49E02 L=149)   411     55        0 (1302/ 283-1360/ 335)  21.8 E04-W01 S50-S47
     20  756  186 (S40E54 L= 97)   941     97        0 ( 742/ 132- 775/ 225)  24.0 E66-E48 S44-S36
     21  870  200 (S42E43 L=108)   473     63        0 ( 842/ 181- 898/ 220) -45.0 E45-E39 S43-S39
     22  991  165 (S49E38 L=113)  2344    247        5 ( 913/ 124-1095/ 204) -42.0 E49-E27 S54-S43
  

    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