Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  743 1841 (N36E53 L=169)   538     36        1 ( 716/1823- 764/1862)  -7.1 E57-E49 N34-N38
      2  823 1701 (N27E35 L=188)  1001    291        1 ( 772/1558- 874/1807) -36.9 E45-E25 N19-N34
      3  485 1661 (N17E58 L=165)   455     99        1 ( 456/1630- 504/1708) -35.5 E61-E54 N15-N20
      4  430 1590 (N11E58 L=165)   444     91        0 ( 404/1564- 475/1621) -11.3 E62-E52 N09-N13
      5  696 1547 (N14E35 L=188)   318    111        1 ( 663/1509- 731/1597)  90.0 E36-E33 N11-N18
      6  603 1507 (N10E39 L=183)   478    130        0 ( 580/1444- 633/1573) -71.6 E41-E37 N05-N14
      7 1199 1512 (N26E04 L=219)   293    136        1 (1170/1447-1213/1569) -58.0 E07-E01 N21-N29
      8 1408 1470 (N30W10 L=233)   263     46        0 (1383/1441-1425/1502) -45.0 W07-W11 N28-N31
      9 1749 1428 (N41W41 L=264)   541     86        0 (1710/1411-1790/1444)  15.3 W36-W47 N38-N43
     10 1219 1378 (N18W01 L=224)   230     28        0 (1198/1359-1239/1398) -26.6 W00-W02 N16-N19
     11  212 1319 (S09E67 L=156)   580    108        0 ( 185/1281- 236/1372)  71.6 E69-E65 S11-S05
     12 1740 1271 (N30W40 L=263)   440    115        0 (1725/1220-1760/1329) -63.4 W38-W42 N26-N33
     13  639  849 (S27E18 L=204)   428    115        0 ( 590/ 818- 695/ 880)   0.0 E22-E14 S27-S25
     14 1236  509 (S29W30 L=253)   312     97        1 (1187/ 489-1286/ 536)  15.9 W26-W34 S30-S27
     15 1650  398 (S20W71 L=294)  1080    111        1 (1621/ 356-1695/ 435) -80.5 W66-W73 S22-S16
  

    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