Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  871 1517 (N35E12 L=240)   235     60        0 ( 839/1502- 906/1532)   0.0 E14-E09 N34-N36
      2  878 1429 (N29E11 L=241)   306    130        1 ( 819/1410- 945/1452)   7.1 E14-E06 N27-N30
      3  559 1294 (N19E32 L=220)   397     76        2 ( 529/1266- 598/1319)  11.3 E34-E29 N17-N20
      4 1270 1206 (N15W16 L=268)   571    224        2 (1193/1128-1316/1299)  65.6 W10-W18 N09-N20
      5 1100 1277 (N19W05 L=257)   251     63        0 (1069/1258-1137/1293)  11.3 W02-W07 N17-N20
      6 1392 1217 (N15W24 L=276)   268     80        0 (1362/1167-1411/1256) -68.2 W22-W25 N12-N17
      7  293 1197 (N12E53 L=199)   555    174        0 ( 249/1154- 330/1235) -32.0 E58-E49 N09-N14
      8 1769 1099 (N07W53 L=305)   346     65        1 (1747/1063-1784/1125) -71.6 W51-W55 N05-N08
      9 1401 1098 (N08W24 L=276)   213     81        1 (1364/1076-1438/1121) -31.0 W21-W26 N06-N09
     10 1379 1046 (N05W22 L=274)   203     79        0 (1342/1022-1418/1066)  14.0 W20-W25 N03-N06
     11  182  976 (S02E65 L=187)  1334    233        2 ( 131/ 954- 237/1014)   0.0 E74-E57 S03-N00
     12  554  930 (S03E30 L=222)   228     81        0 ( 532/ 892- 575/ 965)  53.1 E31-E28 S05-S01
     13 1198  800 (S10W11 L=263)   680    217        5 (1137/ 742-1263/ 887) -48.8 W07-W15 S14-S04
     14  861  850 (S08E10 L=242)   205     40        0 ( 836/ 835- 886/ 867) -33.7 E11-E08 S08-S06
     15 1308  804 (S10W18 L=270)   218     80        2 (1275/ 791-1355/ 816)  11.3 W16-W21 S11-S09
     16  769  774 (S13E16 L=236)   555    189        5 ( 707/ 726- 852/ 811)  26.6 E20-E10 S15-S10
     17 1566  724 (S16W37 L=289)  1265    222        6 (1520/ 646-1623/ 772) -58.0 W33-W41 S20-S12
     18 1188  666 (S19W11 L=263)   821    283        3 (1090/ 596-1305/ 759)  35.5 W04-W18 S23-S13
     19  424  683 (S20E42 L=210)   673    163        3 ( 383/ 627- 460/ 736) -74.1 E45-E39 S23-S16
     20  636  574 (S26E27 L=225)   548    163        2 ( 582/ 534- 685/ 640)  33.7 E31-E22 S29-S21
     21 1161  565 (S26W10 L=262)   300    143        1 (1140/ 513-1179/ 610)  71.6 W08-W10 S29-S22
     22  858  572 (S26E11 L=241)   256    110        0 ( 838/ 524- 897/ 607)  56.3 E12-E08 S29-S23
     23 1385  561 (S27W26 L=278)   619    185        4 (1338/ 523-1443/ 591)  -7.1 W22-W30 S29-S24
     24 1203  481 (S32W14 L=266)   354     79        0 (1168/ 453-1232/ 520)  45.0 W11-W15 S34-S29
  

    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