Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1405 1496 (N22W38 L= 15)   507    123        1 (1378/1444-1449/1545)  24.0 W34-W43 N19-N23
      2  885 1483 (N37W05 L=342)   264     68        0 ( 859/1455- 914/1509)  21.8 W02-W07 N35-N38
      3 1168 1467 (N28W22 L=359)   272    115        0 (1119/1448-1231/1485) -14.0 W18-W26 N26-N28
      4  684 1439 (N40E11 L=327)   446     80        1 ( 651/1412- 735/1460) -38.7 E13-E07 N37-N42
      5 1633 1272 (N03W44 L= 21)  1037    220        3 (1583/1190-1705/1334)  15.9 W37-W51 N00-N05
      6  161 1259 (N40E70 L=268)   734     69        0 ( 123/1239- 197/1281)  -8.5 E82-E62 N38-N41
      7  595 1175 (N26E22 L=315)  1535    299        4 ( 446/1134- 731/1213) -25.3 E33-E13 N20-N30
      8 1727 1038 (S12W44 L= 21)   510    124        0 (1676/1007-1789/1064) -36.9 W40-W48 S15-S09
      9 1624  926 (S15W33 L= 11)   749    202        5 (1581/ 839-1669/1005)  58.0 W29-W37 S20-S10
     10  227  924 (N19E58 L=279)  3125    506        8 ( 120/ 782- 435/ 999)   6.0 E76-E38 N11-N23
     11 1379  882 (S10W16 L=354)  1093    275        0 (1296/ 783-1439/ 996)  31.6 W09-W22 S13-S05
     12 1656  900 (S18W35 L= 12)   348     64        0 (1627/ 867-1689/ 931)  21.8 W32-W38 S19-S16
     13 1132  653 (S17E04 L=334)   378    103        0 (1099/ 608-1168/ 703)  33.7 E06-W00 S18-S14
     14  913  642 (S12E16 L=321)   340     54        1 ( 883/ 612- 945/ 668)  14.0 E18-E14 S12-S10
     15 1735  549 (S45W41 L= 19)   804    117        1 (1683/ 525-1791/ 573)  -7.1 W34-W50 S47-S42
     16  589  369 (S21E49 L=288)  1188    172        1 ( 565/ 283- 617/ 451)  38.7 E57-E42 S27-S15
     17  396  388 (S17E67 L=271)  2582    193        7 ( 327/ 316- 457/ 450) -84.8 E73-E61 S22-S11
     18 1162  290 (S43E15 L=322)   469     64        1 (1141/ 254-1180/ 328)  50.2 E17-E12 S46-S39
     19 1394  257 (S56W01 L=339)  1553    173        3 (1310/ 235-1472/ 294) -23.6 E06-W10 S61-S50
     20  935  178 (S45E40 L=297)   476    120        0 ( 876/ 169-1001/ 191) -35.5 E44-E35 S47-S42
  

    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