Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  872 1708 (N50W13 L=280)   381     73        1 ( 842/1688- 917/1722) -38.7 W09-W16 N48-N52
      2 1031 1399 (N25W10 L=277)  1458    508        5 ( 794/1353-1214/1468) -12.5 E04-W23 N20-N31
      3  252 1337 (N41E54 L=212)   776    102        1 ( 195/1312- 302/1356)  -9.5 E64-E46 N39-N43
      4 1747  909 (S22W44 L=310)   886    145        0 (1711/ 835-1767/ 983)  58.0 W39-W46 S25-S17
      5 1513  904 (S15W25 L=292)   253     89        0 (1486/ 869-1548/ 945) -68.2 W24-W27 S17-S12
      6  947  840 (S04E09 L=258)   213     46        0 ( 925/ 815- 973/ 864) -56.3 E09-E07 S05-S02
      7  345  782 (N06E49 L=217)   704    103        2 ( 307/ 733- 396/ 822)   0.0 E53-E44 N03-N08
      8 1042  689 (S15E07 L=259)   308     92        1 (1003/ 663-1088/ 721)  -9.5 E10-E04 S15-S13
      9  351  668 (S01E53 L=214)   642     65        2 ( 329/ 628- 378/ 699) -90.0 E54-E49 S02-N01
     10 1074  572 (S23E09 L=258)   533    151        1 (1033/ 522-1107/ 645)  40.6 E12-E05 S24-S18
     11  933  521 (S22E19 L=248)   259     75        0 ( 898/ 499- 972/ 545) -53.1 E20-E17 S24-S19
     12 1320  471 (S37W03 L=270)   299     72        0 (1303/ 433-1338/ 504)  53.1 W01-W04 S38-S34
     13  750  394 (S26E36 L=230)   484    111        0 ( 736/ 335- 764/ 450)  53.1 E39-E32 S29-S21
     14 1244  383 (S41E05 L=262)   338     50        0 (1217/ 357-1265/ 404)  45.0 E06-E03 S42-S39
  

    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