Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  590 1564 (N38E36 L=102)  2391    399        4 ( 434/1468- 775/1627) -13.7 E55-E18 N31-N41
      2  352 1467 (N30E56 L= 82)  1303    182        2 ( 302/1385- 406/1540) -29.1 E68-E47 N24-N34
      3 1144 1431 (N29W08 L=146)  1006    277        2 (1040/1398-1274/1468)  -3.4 W00-W17 N26-N31
      4  573 1346 (N23E32 L=107)   300     69        1 ( 525/1330- 605/1365)   0.0 E35-E28 N21-N24
      5 1052 1103 (N08W02 L=140)   227     60        0 (1025/1080-1078/1126) -33.7 W00-W03 N06-N09
      6  463  940 (S03E37 L=102)   543    130        0 ( 400/ 904- 511/ 989)  32.0 E41-E32 S05-N00
      7  969  764 (S13E03 L=135)   325    113        0 ( 954/ 702- 988/ 811) -81.9 E04-E02 S16-S09
      8 1052  747 (S14W02 L=140)   330     64        1 (1028/ 716-1076/ 775)  76.0 W00-W03 S15-S11
      9 1708  717 (S17W49 L=188)   340     48        1 (1691/ 696-1727/ 740)  45.0 W47-W51 S17-S15
     10 1584  575 (S26W42 L=180)  1594    271        1 (1545/ 486-1640/ 699) -53.7 W37-W50 S32-S17
     11  881  615 (S22E09 L=129)   455    135        0 ( 816/ 601- 944/ 633)   7.1 E13-E05 S23-S21
     12 1672  562 (S27W51 L=189)   485     80        1 (1648/ 530-1697/ 598)  78.7 W48-W53 S29-S24
     13  622  386 (S40E34 L=105)  1199    170        3 ( 562/ 343- 691/ 455)  26.6 E41-E25 S44-S34
     14  926  214 (S56E10 L=128)   419     33        0 ( 902/ 201- 954/ 229) -21.8 E13-E07 S57-S54
  

    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