Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  517 1660 (N26E48 L=232)  1051    134        1 ( 472/1599- 573/1704)  60.3 E49-E44 N21-N29
      2 1105 1667 (N36E06 L=273)   423     61        2 (1083/1634-1133/1696)  78.7 E08-E04 N32-N37
      3 1194 1627 (N34W01 L=280)   363     66        1 (1165/1604-1226/1653)   0.0 E01-W02 N32-N36
      4 1361 1380 (N20W15 L=294)   728    256        2 (1326/1282-1387/1466) -85.6 W12-W17 N13-N26
      5 1098 1412 (N18E02 L=278)   627    122        2 (1073/1349-1132/1465) -82.9 E03-W00 N13-N21
      6  548 1387 (N08E36 L=244)   437     87        2 ( 513/1347- 572/1422) -38.7 E38-E33 N06-N10
      7  968 1242 (N05E07 L=273)   205     43        1 ( 954/1211- 982/1275)  90.0 E07-E05 N03-N07
      8 1407 1237 (N12W20 L=299)   467    118        0 (1374/1183-1450/1271)  66.8 W18-W22 N08-N15
      9 1704 1044 (N07W43 L=322)   391     62        2 (1687/1012-1729/1077) -36.9 W41-W45 N05-N08
     10 1800  983 (N06W53 L=332)   904    150        6 (1762/ 935-1841/1030)  60.3 W49-W56 N02-N09
     11  544  892 (S21E28 L=251)  4416   1311        8 ( 172/ 596- 941/1016)  25.1 E64-E04 S42-S08
     12  980  945 (S12E01 L=278)   174     55        0 ( 947/ 926-1012/ 974) -33.7 E03-W00 S12-S10
     13 1309  668 (S22W24 L=304)  1083    266        2 (1173/ 633-1442/ 707)  31.0 W16-W31 S26-S17
  

    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