Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  474 1709 (N23E58 L= 41)   720    139        1 ( 455/1674- 503/1744) -51.3 E62-E54 N20-N25
      2  314 1390 (S00E56 L= 43)   464     93        0 ( 280/1348- 359/1420)  26.6 E58-E52 S02-N02
      3  493 1317 (S02E39 L= 60)  1117    265        0 ( 413/1253- 595/1393) -10.0 E47-E30 S04-N01
      4 1283 1315 (N15W08 L=107)   254    104        1 (1268/1264-1295/1371) -63.4 W06-W09 N12-N18
      5 1078 1174 (N02E01 L= 99)   635    201        1 (1040/1076-1155/1247) -36.9 E03-W05 S01-N06
      6  783 1152 (S05E17 L= 82)   608     96        1 ( 708/1073- 827/1206) -36.9 E22-E12 S09-S03
      7  136 1000 (S25E64 L= 35)  1009    270        1 (  88/ 952- 180/1040)  26.6 E69-E59 S27-S22
      8  675  970 (S18E19 L= 80)   337    116        0 ( 624/ 938- 737/ 995)  35.5 E22-E15 S20-S15
      9 1630  968 (N05W38 L=137)   285     96        0 (1587/ 948-1666/ 995)  38.7 W34-W39 N03-N07
     10 1692  843 (N00W46 L=145)  1064    324        3 (1603/ 742-1785/ 975)  67.6 W42-W49 S07-N10
     11  504  842 (S29E29 L= 70)   280     68        1 ( 474/ 813- 538/ 867)  38.7 E31-E26 S31-S27
     12  244  831 (S34E52 L= 47)   326     76        0 ( 223/ 805- 262/ 863)  53.1 E53-E49 S36-S32
     13 1190  831 (S14W14 L=113)   313    103        1 (1139/ 798-1251/ 860)  39.8 W11-W17 S16-S11
     14 1705  736 (S05W51 L=150)   444     85        2 (1680/ 703-1738/ 767) -76.0 W48-W54 S07-S03
     15 1501  457 (S26W48 L=147)  2384    423        4 (1335/ 393-1686/ 559)  45.0 W38-W59 S34-S15
  

    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