Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1283 1514 (N26W31 L=315)   889    222        0 (1182/1493-1393/1532) -23.2 W24-W38 N22-N29
      2 1023 1461 (N31W13 L=297)   378     96        0 ( 975/1433-1065/1489)   0.0 W09-W16 N30-N32
      3 1054 1265 (N19W08 L=292)   231     68        0 (1014/1252-1093/1278) -21.8 W05-W10 N17-N20
      4  978 1251 (N20W04 L=288)   240     53        2 ( 956/1221-1001/1277) -90.0 W01-W05 N18-N22
      5  857 1220 (N22E04 L=280)   595    204        0 ( 786/1165- 944/1256)   0.0 E09-W00 N19-N23
      6  179 1122 (N32E63 L=221)  1457    220        1 ( 141/1045- 233/1173)  60.3 E69-E55 N27-N34
      7 1922 1120 (S16W68 L=352)   902     88        1 (1876/1101-1960/1147)  -9.0 W61-W80 S17-S13
      8  798 1015 (N12E13 L=271)   963    226        2 ( 758/ 917- 845/1121)  85.2 E14-E11 N06-N18
      9 1782  887 (S23W46 L=330)  1160    294        0 (1737/ 756-1836/1022)  42.7 W39-W53 S30-S16
     10 1670  919 (S17W36 L=320)   388     61        1 (1648/ 891-1697/ 944)  26.6 W34-W38 S18-S15
     11  579  838 (N07E31 L=253)   488     89        4 ( 528/ 809- 621/ 868) -45.0 E33-E28 N04-N09
     12  465  724 (N03E42 L=242)  1154    282        4 ( 404/ 607- 514/ 832)  35.5 E50-E35 S02-N09
     13 1636  713 (S29W30 L=314)   334     57        1 (1611/ 685-1659/ 743)  26.6 W27-W32 S30-S26
     14 1318  660 (S22W07 L=291)   850    154        1 (1274/ 580-1367/ 721)  33.7 W02-W11 S25-S17
     15  347  552 (S05E59 L=225)  1130    144        4 ( 302/ 517- 410/ 602) -35.5 E62-E53 S07-S01
     16  855  581 (S14E22 L=262)   614    179        1 ( 787/ 544- 943/ 601)  -5.7 E26-E16 S16-S12
     17  887  467 (S21E24 L=260)   619    198        1 ( 817/ 419- 950/ 529)   0.0 E28-E18 S24-S18
     18 1242  493 (S30E02 L=282)   296     30        0 (1215/ 475-1270/ 513) -14.0 E04-W00 S31-S28
     19  441  434 (S14E57 L=227)  3647    289       11 ( 357/ 357- 530/ 501)   2.9 E67-E46 S19-S08
     20 1058  226 (S45E27 L=257)  1294    143        3 (1004/ 184-1115/ 282)  18.4 E34-E19 S47-S40
  

    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