Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1207 1899 (N57W52 L=349)   744     60        1 (1189/1860-1223/1930)  20.2 W44-W63 N52-N59
      2 1213 1698 (N40W30 L=326)  1487    216        2 (1105/1665-1319/1732) -17.4 W20-W37 N36-N42
      3 1553 1607 (N26W51 L=348)   951    187        1 (1473/1553-1620/1650) -56.3 W46-W56 N21-N30
      4 1493 1535 (N23W42 L=339)   685    119        1 (1461/1502-1537/1565) -68.2 W38-W45 N20-N25
      5 1022 1468 (N28W08 L=305)   917    265        1 ( 903/1451-1158/1487) -10.6 W00-W16 N24-N30
      6 1447 1451 (N19W35 L=332)   272     60        1 (1427/1424-1465/1478) -90.0 W33-W36 N17-N20
      7  747 1455 (N32E11 L=286)   445    129        1 ( 683/1435- 809/1472) -18.4 E15-E06 N30-N34
      8 1371 1396 (N17W28 L=325)   595    205        0 (1276/1376-1462/1414) -14.0 W22-W34 N14-N18
      9  349 1338 (N32E44 L=253)  1235    257        2 ( 240/1291- 446/1388) -14.6 E57-E34 N27-N35
     10  587 1370 (N29E23 L=274)   292     99        0 ( 537/1342- 626/1387) -26.6 E26-E20 N26-N30
     11  953 1355 (N22W01 L=298)   489    223        0 ( 838/1333-1045/1378) -28.6 E05-W06 N18-N25
     12  926 1252 (N16E02 L=295)   861    340        1 ( 800/1174-1075/1328) -45.0 E08-W05 N09-N22
     13 1717 1152 (S03W47 L=344)   406     67        0 (1685/1129-1746/1175) -21.8 W44-W49 S05-S02
     14 1853 1045 (S12W59 L=356)   696    170        1 (1836/ 967-1864/1136)  73.3 W56-W61 S16-S06
     15  749  966 (N02E17 L=280)   210     47        1 ( 720/ 950- 775/ 985)   0.0 E19-E15 N01-N03
     16 1203  754 (S18W06 L=303)   232     59        0 (1179/ 726-1234/ 785)  45.0 W04-W08 S19-S16
     17  968  724 (S15E09 L=288)   407    155        0 ( 914/ 684-1035/ 775) -54.5 E10-E05 S18-S11
     18 1245  749 (S19W09 L=305)   212     45        0 (1222/ 725-1273/ 769)  18.4 W06-W10 S20-S17
     19 1035  494 (S31E10 L=287)  1099    228        0 ( 999/ 392-1083/ 614)  57.3 E14-E03 S38-S24
  

    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