Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  975 1824 (N56W21 L=356)  1306    132        3 ( 915/1785-1029/1858)   4.1 W13-W27 N52-N59
      2 1374 1750 (N39W48 L= 23)  2366    288        4 (1236/1691-1499/1797) -38.7 W38-W55 N32-N45
      3  888 1768 (N53W09 L=344)   310     64        0 ( 858/1744- 913/1784) -51.3 W06-W10 N50-N55
      4 1571 1584 (N24W52 L= 27)   740     91        2 (1537/1559-1617/1614) -45.0 W48-W55 N21-N26
      5  814 1501 (N34E04 L=331)  1247    380        4 ( 680/1434- 982/1552) -30.1 E14-W05 N26-N39
      6 1060 1519 (N30W13 L=348)   323     58        2 (1027/1500-1099/1537) -36.9 W10-W14 N28-N31
      7 1740 1447 (N12W60 L= 35)   975    104        0 (1687/1403-1778/1479) -50.2 W55-W63 N09-N15
      8  994 1390 (N24W05 L=341)   586    146        2 ( 932/1364-1074/1417)  -6.3 W00-W10 N21-N26
      9  389 1314 (N30E39 L=296)  2040    435        3 ( 200/1272- 604/1364) -15.6 E64-E21 N24-N36
     10  976 1308 (N19W02 L=338)   256     52        0 ( 953/1280- 996/1337)  45.0 W00-W03 N17-N20
     11 1036 1286 (N16W06 L=341)   532    170        2 ( 970/1242-1097/1332)   7.1 W01-W09 N14-N18
     12  370 1092 (N17E41 L=294)  1448    462        2 ( 283/ 960- 488/1273) -60.3 E49-E33 N07-N28
     13  786 1208 (N16E11 L=324)   662    232        0 ( 675/1178- 888/1232) -21.0 E17-E04 N13-N19
     14  424 1173 (N21E36 L=299)   602    221        0 ( 344/1148- 520/1226) -29.7 E43-E29 N17-N25
     15  245 1129 (N21E53 L=282)   503     28        1 ( 220/1100- 266/1158) -71.6 E56-E50 N19-N22
     16  652 1070 (N11E21 L=314)   257    127        0 ( 596/1055- 713/1084)  -8.1 E24-E17 N09-N11
     17 1642  868 (S19W37 L= 12)   880    304        0 (1594/ 752-1671/1017)  61.9 W32-W40 S25-S10
     18 1810  838 (S24W53 L= 28)   355     81        0 (1789/ 792-1823/ 877)  63.4 W50-W54 S26-S22
     19  232  796 (N02E60 L=276)   512     99        1 ( 202/ 755- 263/ 836)  18.4 E64-E55 N00-N03
     20 1372  684 (S25W16 L=351)   370     56        1 (1347/ 653-1397/ 712)  56.3 W13-W17 S26-S23
     21  332  624 (S10E56 L=280)   468     42        0 ( 299/ 606- 363/ 641)   0.0 E59-E52 S10-S08
     22  697  598 (S18E29 L=307)   387    100        2 ( 663/ 564- 738/ 635) -45.0 E30-E26 S19-S15
     23  439  562 (S15E49 L=286)   475    120        0 ( 391/ 534- 498/ 602) -39.8 E51-E44 S17-S12
     24  579  387 (S29E47 L=288)   838    159        0 ( 558/ 299- 602/ 452)  50.7 E53-E41 S35-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